#!/usr/bin/perl  
#  Script: pop_function 
@names=("Bob", "Dan", "Tom", "Guy"); 
print "@names\n";
print pop(@names); # pop off last element of the array 
print "\n@names\n"; 
